      double precision rearth
      double precision ellip
      double precision rlatc
      double precision rad
      real olat, olon
      real aa, bb, bc
      real sint, cost
      real rotate
      integer icoordsystem

      common /GEO_COORSYSTEM/ rearth, ellip, rlatc, rad,
     &    olat, olon, aa, bb, bc, sint, cost, rotate,
     &    icoordsystem
